with c_arbre;
with ada.text_io; use ada.text_io;

procedure c_arbre_prova is
	package cp_arbre is new c_arbre;
	use cp_arbre;
	r: arbre;
	r1: arbre;
	r2: arbre;
	r_a: arbre;
	r_b: arbre;
	valor: character;
	entrada: string:= "Hola mon!";
	entrada2: string:= "Adeu mon!";
	qk: character;
begin
--     *
--    / \
--   /   \
--  +     - 
--  /\    /\
-- h  o  l  a
posa(r1, 'h');
posa(r2, 'o');
r_a := empelta('+', r1, r2);
posa(r1, 'l');
posa(r2, 'a');
r_b := empelta('-', r1, r2);
--print(r_b);
--print(m(fe(r_b)));
--print(m(fd(r_b)));
--new_line(3);
--new_line(3);
r := empelta('*', r_a, r_b);
list_all;
--print(r);
--print_index(r.i);
get_inordre(r, e_stack);

sig_inordre(e_stack, qk);
sig_inordre(e_stack, qk);
sig_inordre(e_stack, qk);
sig_inordre(e_stack, qk);
sig_inordre(e_stack, qk);
sig_inordre(e_stack, qk);
sig_inordre(e_stack, qk);

end c_arbre_prova;
